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**F ILE**1D**NCPSHOIO 
NN NN CCCCCCCC §~=PPPPPPPP SSSSSSSS_ HH HH 000000 HII 000000 ‘ 
NN NN CCCCCCCC PPPPPPPP SSSSSSSS_ HH HH 000000 111! 000000 ° 
NN NN CC PP PP SS HH HH 00 I] 00 00 ° 
NN NN CC PP PP SS HH HH 00 00 I] 00 00 ‘ 
NNNN NN CC PP SS HH HH 00 00 I] 00 00 ° 
NNNN NN CC PP PP SS HH HH 00 00 II 00 00 : 
NN NN NN CC PPPPPPPP SSSSSS HHHHHHHHHH 00 00 II 00 00 ‘ 
NN WN NN CC PPPPPPPP SSSSSS HHHHHHHHHH 00 00 I] 00 00 ‘ 
NN NNNN CC PP SS HH HH 00 00 II 00 ° 
NN NNNN CC PP SS HH HH 00 I] 00 00 : 
NN NN CC PP SS HH HH 00 00 I] 00 00 cece : 
NN NN CC PP SS HH HH 00 00 I] 00 00 eoee : 
NN NN cccccccc PP SSSSSSSS HH HH 000000 III] 000000 cove : 
NN NN cccccccc PP SSSSSSSS HH HH 000000 III 000000 cece : 
LL 111] SSSSSSSS : 
LL HII SSSSSSSS : 
LL Il SS : 
LL I] $s ‘ 
LL I] S$ ‘ 
LL I] ss : 
LL I] SSSSSS ‘ 
LL I] SSSSSS : 
LL I] $s : 
LL I] SS ‘ 
LL I] SS ‘ 
LL I] $s : 
LLLLLLLLLL T1111] SSSSSSSS : 
LLLLLLLLLL HI SSSSSSSS : 
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Oe ree Page 
: DISKSVMSMASTER: CNCP.SRCIJNCPSHOI1O.B832; (1) 
ZTITLE ‘1/0 S$ 


up 
MODULE NCPSHOIO 


or thew an nd List’ 
= 
SING_MOD OF x TERNAL =GENERAL) 
BEGIN SING-MODE (NONEXTERNAL=GENERAL)) = 


' 

leueeneenenenceenneeeeenennnecereereeteeteetecenentnntentenennnnentneereetent 

ie 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'* DIGITAL ee SL CORPORATION, MAYNARD, MASSACHUSETTS. 

re ALL RIGHTS RESER 

i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND 

'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH panty SE ne 
E 


cop 
TH 
:# INCLUSION OF i & oy 443 opt NOTICE. THIS SOFT ARE OR OT 
t* COPIES THEREOF MA T BE PROVIDED OR OTHERWISE MADE AVAILABLE TO 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HER 


® 
os 
wy 
wt 
® 
® 
af 
® 
Y 
we 
ie TRANSFERRED. * 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 


> 


VIN ("OC ODNOVUESWN (OOO NOULS WN QOOONOULS WN 


'@ 

'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
i. CORPORATION. 

ie DIGITAL ASSUMES NO tery ig gh R THE USE OR RELIABILITY OF ITS 

i; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED 

i 

Fever clube Soca seseeee fae Ty Mea 
‘ 


BY DIGITAL. 
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FACILITY: Network Control Program (NCP) 


tk at kat wt ts 8 a 8 tt a ss 4 1 tS) tt tt it 


ODONOAUE WN "OO OONOAUES WN “OC OODNOAU EAD “OOOwOous 


5 ABSTRACT: 
7 i This module contains the routines to manage the output 
8 3. i file for the SHOW and LIST commands. This file is specified by 
iB 3 the TO parameter and defaults to SY SSOUTPUT s 
$3 ENVIRONMENT: VAX/VMS Operating System 
és AUTHOR: Darrell Duffy , CREATION DATE: 4-December-1979 
ry ie MODIFIED BY: 
i v001 TMHOO001 Tim Halvorsen 28-Jul-1981 
48 BRE : Add general addressing. 
49 04 ie 
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1 ZSBTTL ‘Definitions’ 


TABLE OF CONTENTS: 


tH 32 V4. 2 
SMASTER: Nee? she NCPSHOIO. B32. 9° (2) 


FORWARD ROUTINE 
NCPSOPENSHO : NOVALUE ' Open the show/list output file 
NCP$WRITESHO : NOVALUE, i Write a record to it 
NCPSCLOSESHO : NOVALUE ! Close the file 

t 


INCLUDE FILES: 


MEU OOONOULS UNO 


SES 


ss 


ob dS 8 st a a st ss 2 a 


IBRARY ope aC ORAS STARLET LOE" 
IBRARY ‘OBJ$:NCPLIBRY.L32'; 


acces 
MEWN—OO@ 


~~~ 


EQUATED SYMBOLS: 


oooo 
ttt 


} OWN STORAGE: 


SHOOUTFAB : SFAB (), ! Output FAB 
SHOOUTRAB : SRAB () ! Output RAB 
' 


EXTERNAL REFERENCES: 


EXTERNAL LITERAL 
NCP$_SHOF IL, ' e open error 
; : 


error 


~ <s 
o- 


NCPS= SHOIO 


PETRIE ICIS ISIC IS IOC ISIS eee Ie Ieee rerererererererererercrerereierererere Linn ttl 
O00 OMOC COCO OOOO NI NNN NNN AaaO 
SLEslsSSES ARUN OOO DEIN OOo UO APO OO OA Uae 
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39 
16 
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> ve 
~~ = 
sa wo 
a> ce. 
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ee oO ~ 
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ox 7“ YY -} Cad 
an z @ bd = » 
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ws — aa ee > 
a. - a ~~ *- x a 
oo a wt oO -_ e =z = 
xa —- 3e ° me >: " . 3 
“a. a<- oo = . ” ” i Ss — t. Ss 
2vu YL oa w ” - w ws [4 en = el oo 
wea w ao -_ _ a -o za Zea eww xw 
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Ow a +A > s ow a |) ” ” ‘ 
AS Cc > i _ => oOo Ld hononnuu _ “uu 
S- zine 22" 2° 2 SE2ZS <= zm = mvzva Zz av 
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PTC eee 
SE NINN 
NOR DDO K—WINTFMN OR. DHOOM TN OR. OPO WM TFN OR. DAO MUM TMNOR. OPO MUM TMNOR. ODO 
DEPOT III EF FT ET TST TTT 
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VA 
SHO Open Output File 4-8ep- ISK 


Bliss-32 V4. 4 
SMASTER: cNCe” Sac NCPSHOIO. B32. 79° (3) 


vou-000, NCP D1 SKSVMSRA 


Vise 
vw 


FAB = SHOOUTFAB, 
OP = EOF 


setup, ie fab with it 
SHOOUTE AB FABSL_FNA] = PDBSG INE 18 “EPOBST_DA + 


OOUTFAB LFABSB_FNS . (PDBSG_INF_TO CPDBST ADATAD) <0, 8, 0> 


ELSE 


SHOOUTFAB CFABSL_FNA] = 
oo FABSB_FNS) = 


AAAS 


set the aig toute 
S$SOUTPUT 
SY SSOUTPUT® ) 


wv 


LIT ("SY 
HARCOUNT ( 


STATUS = SCREATE (FAB = SHOOUTFAB); ! Create the file 


IF NOT .STATUS 
THEN : Signal any status we get 
SIGNAL_STOP (NCP$_SHOFIL, 0, «STATUS 


STATUS = SCONNECT (RAB = SHOOUTRAB); ! Connect the stream 


IF NOT .STATUS 
! _ signal any status here too 
SIGNAL_STOP (NCPS$_SHOFIL, 0, . STATUS 


000909090909 0909 SI NIN SIN NNN NINIOOO 


RETURN 


R ! Position to end of file 
THE INF_TO CPDBSB_STS_FLG] ! Is there a filespec? 
1 END; 


Be Ge Se Ge Se Se Se Se Ge Se Se Os Se Fe Se Se FHSS Se Se Se Se SH Se Se Se Se Sees Se Sees seg 
a ak ak at st ak 8 ot 2 2 = = 2 = = = 2 2 2 = = a a a a 


-TITLE NCPSHOIO I/O Support for Show and List 
~IDENT \V04-000\ 


-PSECT $PLITS,NOWRT,NOEXE ,2 
5 § $0008 PTAAB: ASEH \8¥SS0UTPUT\<0><0> 
.PSECT SOWNS,NOEXE,2 
03 00000 SHOOUTFAB: 


5 
00 00 54 55 50 54 55 4F 2 


0001 BYTE 80 : 

0002 “WORD : 

000 00 “LONG : 
00000 008 “LONG : 
0000 00 “LONG : 
000 01 “LONG : 
a : 

8 ith "BYTE : 


SHOOUTRAB 
.EXTRN NCP$_SHOFIL, NCP$_SHOIO 
“EXTRN PDBS$G_INF_TO, SYSSCREATE 
“EXTRN SYSSCONNECT 


-PSECT SCODES.NOWRT,2 
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¥O42000 NCPSOPENSHO Open Output File 1 =3007} 382 93:28:40 PTR SUMEHASTERSEWCP SRCINCPSHOIO.B320%° (3) 

000000 18 Lowe : ; 
10 BYTE : 3 
ee tae 

8 ~ LONG Py } ° 
5 BYTE : ; 
6° WORD : : 

000000 00 LONG : : 

00 3 C WORD : : 
00000000 00040 LONG 3 ° 
00000000 00044 eLONG 0 3 . 

0098 0048 -WORD QO : é 

3 004A -BYTE 0 : $ 

0 00048 -BYTE 0 : : 
00000000 seed -LONG 0 : : 
01 00050 SHOOUTRAB: $ 

BYTE 1 : $ 

44 00051 -BYTE 68 : : 

8008 00052 -WORD OQ : : 
0000000 Bogs -LONG 0 : : 
00000 00058 LONG 0 : $ 

00000000 0005C -LONG QO : 3 

00004 00060 ORD O03] : $ 

464 Bones WORD 8 : 3 
00000000 B38 LONG : é 

0000 0006C eWORD 0 3 : 

00 94 -BYTE 0 : : 

00 Ooh BYTE : é 

0000 it 0 WORD ; ; 

BOS 0072 WORD : 3 
000000 0074 -LONG 0 : $ 
000000 0078 eLONG 0 : : 
SSS hs ERE: : : 
0 int4 BYTE 0O : : 

8 88 5 BYTE 3 : 

BYTE : 3 

o8 -BYT 3 ; 

sues eRe : : 

§000008 $0996 ~LONG 3 : 

SRMS_PTR= SHOOUTF AB : 
SRMS_PTR= ; 


; Routine Size: 183 bytes, Routine Base: $CODE$ + 0000 
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NCPSHOIO 1/0 Support for Show and List 18-2 =1984 23:52:39 VAX-11 Bliss-32 V4.0-74 Page NCP 
042000 NCPSOPENSHO Open Output File 12-08-1382 93:26:46 NER SUNGHASTERSLUCP SRCINCPSHOIO.B3204° (38 v04 

O3FC 0 .ENTRY NCPSOPENSHO, Save R2,R3,R4,R5,R6,R7,RB,RI =; 0096 : 

9 0 6 00 i MOVAB —LIBSSTOP Ro : : 

8 G 8F MOVL  #NCP$_SHOFIL, Rg 3 : 

9 G E 0001 MOVAB PDBSG-INF_TO, R : : 

6 ' E 0001 MOV SRMS PTR, Rs : ; 

movcS #0, * #0, #80, SRMS_PTR + 0146 F 

0050 6E 0 € 0001 0, TSP) 80, $ 0 ; 

66 5 F B 6 MOVW #204 $RMS_PTR : ; 

04 Ab 12000003 F 08 MOVL ssotba6aeG SRMS_PTR+4 : : 

16 Ab 1 0 MOVE #1, $RMS_PfR+22 ; : 

1D Ab 0200 28F 80 0 MOVW 512, $RAS_PTR+29 : ; 

1F Ab : D MOVB #2, $RMS_PTR+31 : ; 

39 A6 00000000' 3 0041 MOVAB P.AAA, $RMS_PTR+48 : : 

5 Ab 4 9 0049 MOVB #4, SRMS_PTR+53 : : 

0044 28F 00 6E - 00 2c 9040 MOVCS #0, (SP)> #0, #68, SRMS_PTR + 0154 : 

50 Ab 4401 BF 80 bo0e6 MOVW #17409, $RMS_PTR : ; 

4 Ab 0100 8F 3C 0005 MOVZWL #256, $RMS_PTR+4 : ’ 

6E Ab 94 0006 CLRB = $RMS_ PTR+ : 3 

008c = ¢6 66 9 006 MOVAB SHOOOUTFAB, SRMS_PTR+60 : : 

0c 6 f 006A BLBC  PDBS$G_INF_TO, 1 : 0156 : 

C AG 02 AZ : 006D MOVAB PDBSG-INF~T0+2, SHOOUTFAB+44 > 0159 ’ 

4 Ab 01 ay 90 9007¢ nove PDBSG_INF_TO+1, SHOOUTF AB+52 + 0160 : 

2¢ A6 00000000" 06 4 tines 1$ MOVAB P.AAB, SHOOUTFAB+44 + 0164 ; 

4 Ab 0A 90 00081 MOVB #10, SHOOUTFAB+5S2 > 0165 ; 

56 DD 00085 2$ PUSHL R + 0169 : 

000000006 00 or FB 0087 CALLS #1, SYSSCREATE ; F 

52 0 DO O008E MOVL RO, STATUS : : 

09 3g E8 00091 BLBS STATUS, 3$ > 0171 : 

52 DD 00094 PUSHL STATUS : 0173 ; 

43 D4 00096 CLRL. (SP) : : 

58 DD 00098 PUSHL R8 ; ; 

69 03 FB OO09A CALLS #3, LIBSSTOP : 3 

50 Ad 9F 0009D 3$ PUSHAB SHOOUTRAB : 0176 : 

000000006 00 01 FB OOOA0 CALLS #1, SYSSCONNECT : ; 

52 50 09 000A7 MOVL RO, STATUS 3 3 

09 3g E8 OOOAA BLBS STATUS, 4$ + 0178 : 

52 DD OOOAD PUSHL STATUS : 0180 ; 

7E D4 OOOAF CLRL. = SP) : : 

58 OD 00081 PUSHL Rs : ; 

69 03 FB 000B3 CALLS #3, LIBSSTOP : : 

04 00086 4$: RET > 0185 3 
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vous PSURI ESHO Write a Record 14-S8ep- 3b 13:28:16 DL SKSUMSMASTERSENCP. SRCINCPSHOIO.B32~1°° (4) 


l/ 
NC 
3 1 1 ZSBTTL ‘NCPSWRITESHO Write a Record’ H 
: 13s ; } GLOBAL ROUTINE NCPSWRITESHO (BUFDSC) :NOVALUE = ! ; 
: 198 1 S 1 !4¢ ; 
; 12? + : FUNCTIONAL DESCRIPTION: : 
: 195 138 1/ This routine writes a record to the output file for ; 
: 128 195 1! SHOW and LIST. f an error occurs, the file is closed 3 
5 130 132 : } and the error is signaled. : 
; 199 196 | FORMAL PARAMETERS: i 
3 4 138 1 BUF DSC Address of a buffer descriptor of the record ; 
; 08 00 1 | IMPLICIT INPUTS: : 
; 206 01 1! $ 
: $08 08 ji a 
: 207 04 1! IMPLICIT OUTPUTS: : 
: $06 $508 1 i NONE 
: 210 0 $9 1! : 
: 211 08 1 ! ROUTINE VALUE: 3 
: \¢ 0 4 : COMPLETION CODES: : 
He RADY] ome : 
: 16 0 1§ ' SIDE EFFECTS: ; 
: 218 0215 1: NONE : 
: 219 8 16 1! 3 
: $39 O18 1 
; é 0 19 BEGIN ; 
: $5 0981 MAP 
: 225 § BUFDSC : REF VECTOR (2) ! Output record descriptor : 
: 2 8 4 ' . 
: 228 5 5 LOCAL : 
3 3 0226 PTR ' Pointer into buffer 3 
3 0227 S1ZE ' Size of remaining text ; 
; 1 0228 PEREC, ! Pointer to end of record . 
; § o PEND, ' Pointer to end of buffer : 
5 0 REND, ' Pointer to end of a tine : 
8 : ; STATUS ' Status return : 
; 5 PTR = CHSPTR ( .BUFDSC (1)); ! Point into record : 
; SIZE = .BUFDSC (0); ! Size of remaining : 
: 340 PEND = .PTR + .SIZE; i Pointer to end ; 
; & § WHILE .SIZE GTR 0 ! While there is a record 3 
; 24 40 b0 3 
; 4G 41 BEGIN g 
; 245 ae SHOOUTRAB CRABSL_RBFJ = .PTR; ! The current buffer : 


18-1351 


NCPSHOIO 1/0 Support for Show and List 4 23:52:39 VAX-11 Bliss-32 v4. 
062000 NCPSURITESHO Write a Record 12-808-138¢ 93:26:72 DISKSVMSMASTER: CNCP. OC RCINCPSHOI1O.B3204°" 31 
$ 4 ee , CHSFIND_CH (.SIZE, .PTR, 13); ! Find the next Line 
: ri rf: T CHSFAIL”(.REND) ' If there was one 
: 26 4g PA "BEGIN ! Set to write the Line 
; » 47 4&4 SHOOUTRAB CRAB$SW_RSZ] = .REND - »PTR: ' Its size 
; ‘3 4 PTR = .REND + 2;~ | Point bey vend it 
: 4 ? pire = .PEND = .PTR ! Size of Feostning text 
: 254 3 ELSE 
; 5 4 GIN ! The whole buffer 
$ 4 SHOOUTRAB CRABSW_RSZ] = .SIZE; 
; 4 & SIZE = 0 ! No more left 
: : 5 4 : END 
i 3 , eee 
: 6¢ 25 i Remove trailing spaces from record 
: $87 3 
: 65 0 oF PEREC = Bert fae CRABSL pore * ,  SHOOUTRAB CRABSW_RSZ]; 
: 8 oF WHILE CHSRCHAR (.PEREC - 1) 
; 65 PEREC = .PEREC - 1 
: f 2 
3 re SHOOUTRAB CRABSW_RSZ] = MAX (1, .PEREC - .SHOOUTRAB CRABSL_RBFI ); 
; y STATUS = S$PUT (RAB = SHOOUTRAB); ' Put the record 
; : IF NOT .STATUS 
; THEN ! If error, close file and 
: 4 4 BEGIN ' signal status 
3 5 4 NCPSCLOSESH 
3 8 4 SIGNAL STOP OUNCES _SHOIO, 0, .STATUS) 
; 5 END 
3 S 
0 : 
~EXTRN SYSS$PUT 
01FC 00000 -ENTRY NCPSWRITESHO, Save R2,R3,R4,R5,R6,R7,R8 
5 00000090" 00 4 000 MOVAB SHOOUTRAB+34, R8 
4 3A p MOVL BUFDSC, RO 
D vQ (RO), SIZE 
4 C1 Bie ADDL3 SIZE, PTR, PEND 
5 rf 14 1$: TSTL size 
of 1 1 BLEQ $ 
ag 0 1 MOVL PTR, SHOOUTRAB+40 
5 D 3A QOOIC LOCC #13, SIZE, (PTR) 
>. Te : $8 BNEQ 2$ 
1 D4 000 CLRL R1 


Sete Se Se Se Sete Sete te Ge 


8 
(4) 


135 bytes, 


ort for 


68 iH 
53 ; 
68 

50 52 
é8 

000000006 90 


A8 
00000000v 00 


000000006 00 


how and List 
ESHO Write a Record 


Routine Base: 


02 


06 


FF 


000000006 


SCODES + 0087 


WOO NMOVIMO PF NOOUW™MNNOS PV P VIMO Pow 
MWMFMAOP ODO" WODN FVODOWOWUIIMNL NEM — 


om NO 99 MMI 709 9 | 9 — OOwWo Odor "9 


BS FOV WOD OO Fw SIN" ONO FO" VNU 


e0-1964 $3: 26; 3 N KSVMSRASTE STER: a NeP Ske 


Rl REND 


2(R 
R, PEND, SIZE 


T 

$ 

IE. SHOOUTRAB+34 

HOOUTRAB+40, RO 

HOOUTRAB+34, PEREC 
PEREC 

(PEREC), #32 

PEREC 

cs 

RO, PEREC, RO 

7$ 


at Dunne” 
So 


#1, RO 
RO, SHOOUTRAB+34 
SHOOUTR TRAB 
SYSSPuT 
noe 3 Tus 
vATOS 
#0, "safes 


stspy 
#NCP$_SHOIO 
#3. LTB$STOP 


¢Swcpswo10.e3209%" (43 


PTR, REND, SHOOUTRAB+34 
§), PT 


NCPSHOIO 


os 
ow 


FARVLSSSLSGEAVLSSSISEAR Bo 


UBRESHO “Close Output File 18 
ZSBTTL aot PSCLOSESHO Close Output File’ 
GLOBAL ROU INE NCPSCLOSESHO :NOVALUE = ! 
i FUNCTIONAL DESCRIPTION: 

Close the output file 

i FORMAL PARAMETERS: 

i NONE 

i IMPLICIT INPUTS: 

i NONE 

i IMPLICIT OUTPUTS: 


BISA R oS 


i ROUTINE VALUE: 
i COMPLETION CODES: 


EID DI at a tt tk tt 
- 


05 

10 : NONE 

11 0 ! 

\§ 08 ' SIDE EFFECTS: 

1 09 ' 

14 10 NONE 

i 1} 

i 13 

18 0 13 BEGIN 

31 1g SCLOSE (FAB = SHOOUTFAB); 
1 RETURN 

$¢ 0 i 

24 0320 END; 


00 0 
00000000° 60 oF 8 
000000006 00 1 fe 8 


; Routine Size: 16 bytes, Routine Base: S$CODES + 013E 


soit 93: 


~EXTRN 
-ENTRY 
PUSHAB 
CALLS 
RET 


:39 
16 


! Ignore any errors 


VAX-11 Bliss-32 V4.0-74 


DISKSVMSMASTER: (NCP. SRCJNCPSHOIO. B32: 


SYSSCLOSE 


NCPSCLOSESHO, Save nothing 


UTFAB 
#1, SYSSCLOSE 


34 


vOe=000— mPericane aes bare Ya 1odeo-1984 #3: 2878 Disk $vmen neh ASfeRscnces SRCINCPSHOLO. B32; 79 * 


'End of module 
338 0332 0 ELUDON 
-EXTRN LIBSSTOP 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 148 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: SPLITS 16 NOVEC.NOWRT, RD .NOEXE.NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 334 NOVEC.NOWRT, RD. EXE.NOSHR, LCL, REL. CON,NOPIC.ALIGN(2) 


Library Statistics 


: woceeee= Symbols ooeee--- Pages Processing 
3 File Total Loaded Percent Mapped Time 

$ _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 81 0 581 00:01.0 
> 78$255$DUA28: CNCP.OBJINCPLIBRY«L32;1 373 3 0 52 00:00.3 
3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NCPSHOIO/OBJ=OBJ$:NCPSHOIO MSRC$:NCPSHOIO/UPDATE=(ENH$:NCPSHOIO) 
$ P 334 code + 164 data bytes 

; me: :10. 

3; Elapsed Time ‘ 

3; Lines/CPU Min: 17 

3; Lexemes/CPU-Min: 349 

3 ry Used: 118 pages 

3; Compilation Complete 


ENT CORPORATION 
ND PROPRIETARY 
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